plotly

library(tidyverse)
library(p8105.datasets)
library(tidyverse)
library(plotly)

data(ny_noaa)

weather_df = 
  ny_noaa %>% 
  na.omit %>% 
  mutate(tmax = as.numeric(tmax), tmin = as.numeric(tmin),
           tmin = tmin / 10,
    tmax = tmax / 10) %>% 
  subset(date > "2008-01-01" & date < "2008-12-31") 

scatterplot

weather_df %>% 
  filter(id %in% c("USC00300023", "USC00300055", "USC00304555", "USC00300961", "USC00303284")) %>% 
  mutate(text_label = str_c("tmax", tmax, "\ntmin", tmin)) %>% 
plot_ly(
  x = ~tmin, y = ~tmax, type = "scatter", mode = "markers",
  color = ~id, text = ~text_label, alpha = 0.5)

boxplot

weather_df %>% 
  filter(id %in% c("USC00300023", "USC00300055", "USC00304555", "USC00300961", "USC00303284")) %>% 
  mutate(id = fct_reorder(id, tmin)) %>% 
  plot_ly(y = ~tmin, color = ~id, type = "box", colors = "viridis")

barchart

weather_df %>% 
  filter(id %in% c("USC00300023", "USC00300055", "USC00304555", "USC00300961", "USC00303284")) %>% 
  mutate(id = fct_reorder(id, tmin)) %>% 
  plot_ly(y = ~tmin, color = ~id, type = "bar", colors = "viridis")